home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / JORF21-2.ZIP;1 / JORFFILS.ZIP / BINARY.J < prev    next >
Encoding:
Text File  |  1993-07-05  |  413 b   |  18 lines
  1. Binary:Start
  2.   New Char
  3.   Win:Add ("BINARY VALUES", 4, 4, 19, 60, Here)
  4.  
  5.   For (Char = 0 Thru 255)
  6.     If (Char > 0 and (Char % 16 == 0))
  7.       Win:Pause
  8.       If Kbd:Got == "Esc_Key"
  9.         Break
  10.     Str:Put("     Character= {To:Str(Char,'000')} Symbol= ")
  11.     Char:Put(Char)
  12.     Str:PutLine("     Binary= {To:Str(Char,'0000 0000',2)}")
  13.  
  14.   If Kbd:Got != "Esc_Key"
  15.     Win:Pause
  16.   Return (Ok)
  17.  
  18.